home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / dpat / dpat129 / amighpv2a / my_production / asm / bloc < prev    next >
Text File  |  1977-12-31  |  495b  |  44 lines
  1.     include    entries.i
  2.  
  3.     con(5)    DOCODE
  4. DebutCode    con(5)    FinCode-DebutCode
  5.     gosbvl    SAVPTR
  6.     gosbvl    GARBAGECOL
  7.     gosbvl    GETPTR
  8.     a=dat1    a
  9.     d1=a
  10.     d1=d1+    5
  11.     a=dat1    a
  12.     r1=a    a
  13.     gosbvl    GETPTR
  14.     d1=d1+    5
  15.     d=d+1    a
  16.     gosbvl    SAVPTR
  17.     c=r1    a
  18.     gosbvl    RES_STR
  19.     gosbvl    GETPTR
  20.     a=dat1    a
  21.     d1=a
  22.     c=r0    a
  23.     c=c+10    a
  24.     d0=c
  25.     a=r1    a
  26. BOUCLE    a=a-1    a
  27.     c=dat1    1
  28.     d1=d1+    1
  29.     dat0=c    1
  30.     d0=d0+    1
  31.     ?a#0    a
  32.     goyes    BOUCLE
  33.     ad0ex
  34.     r2=a    a
  35. FIN    gosbvl    GETPTR
  36.     a=r2    a
  37.     d0=a
  38.     gosbvl    RESSTR
  39.     gosbvl    GETPTR
  40.     d1=d1+    5
  41.     d=d+1    a
  42.     a=r0    a
  43.     pc=(a)
  44. FinCode